RECOMP II USERS' PROGRAM NO. 1018 



PROGRAM TITLE: AFIT 019-R FLOATING BINARY TO FLOATING DECIMAL OUTPUT 
PROGRAM CLASSIFICATION: Subroutine 



AUTHOR: 



PURPOSE: 



DATE: 



Professor R. T. Harling 
Institute of Technology- 
Air University 
United States Air Force 
Wright-Patterson AFB, Ohio 

A subroutine which converts RECOMP' S floating binary 
numbers into floating decimal numbers for output on the 
typewriter. It is provided with a number of entries, so 
that it can deal with a single number, with a series of 
numbers to be typed in column, a series to be typed in 
tabular form, or with a fixed point number. 

October 1959 



Published by 

RECOMP Users* Library 
at 

AUTONETICS INDUSTRIAL PRODUCTS 

A DIVISION OF NORTH AMERICAN AVIATION, INC. 
3584 Wilshire Blvd., Los Angeles 5, Calif, 



FLOATING DECIMAL OUTPUT Prof. Harling 

AFIT 019 19 Oct 59 



I. AFIT 019 is a subroutine which converts RECQMP'S floating binary 
numbers into floating decimal numbers for output on the typewriter. 
It is provided with a number of entries, so that it can deal with 
a single number, with a series of numbers to be typed in column, a 
series to be typed in tabular form, or with a fixed point number. 

The output form is a characteristic, followed by an exponent. The 
number of digits in the characteristic is stipulated by the user and 
may be as large as desired, although it will have no value beyond 
twelve digits; the characteristic is not rounded. Signs are typed 
only if negative. The number ufSLfee of any magnitude that RECQMP 
can contain. If it exceeds 10 1D0 ° in magnitude, the machine types 
'teXP TOO UGH" and stops. If the characteristic is zero, the machine 
types "ZERO" and if the exponent is negative and too large in magnitude 
for the routine to handle, it types "VIRTUAL ZERO. " 

II. COMMAND -15 00 n 

where n is a two-digit octal number which indicates the number of 
digits to be typed in the characteristic. 

This form types out a single floating point binary number, which must 
be in the A and R registers when the negative command is encountered. 

Return is made to the command next following the negative command — 
15 00 n. 

The nunber is typed at the position at which the typewriter stands; 
any initial or final positioning commands for the typewriter must be 
provided in the main program. 

If the machine types '!EXP TOO HIGH, and stops at LC II76.O, touching 
the START button will cause it to return to the main program. 

Ill . Command — 16 rib 

where n is a two-digit octal number which indicates the number of 
digits to be typed in the characteristic and b is a two-digit octal 
number which indicates binary scale. 

This form types out a single fixed point binary number which must be 
in the A register when the negative command is encountered. Its 
binary scale b must be in the range ^ b ^ 71q • 



Return is made to the command next following the negative command — 16 nb. 

The number is typed at the position at which the typewriter stands; 
any initial or final positioning commands for the typewriter must he 
provided in the main program. 

If b is not within the stipulated range, a fixed point number can still 
"be typed out by the procedure given in paragraph VI. 

IV. Command —17 N n 

where n is a two digit octal number which specifies the number of float- 
ing point binary numbers to be connected and typed, and n is a two digit 
octal number which specifies the number of digits to be typed for each 
characteristic . 

This command must be immediately preceded by a command C L A P where 
P is the address of a word which contains the initial address at b iQ; 
i.e., (P) ■ PZB (IA) .0 PZE (zero) . and IA is the address of the 
first of the floating point binary numbers to be outputted. The others 
must follow in sequence, two locations per number. 

The numbers are typed out in a vertical column, one number per line, at 
the left of the page. It is not necessary to provide an initial carriage 
return or figure shift in the main program. 

If the machine types EXP TOO HIGH and stops at LC 1176.0, touching 
START will cause the routine to proceed with the outputting of the 
next number. 

V. Closed Subroutine 

In this form, the routine converts and types a block of N binary floating 
point numbers, commencing at IA, and allows any desired number of them 
to be typed on each line. 

The TAB DEFEAT SWITCH below the typewriter cover must be positioned to 
the REAR; and the TAP STOPS on the typewriter must be adjusted accord- 
ing to the spacing desired. 

The calling sequence is: 





SLL 






oU 


TRA 
PZE 


1251-0 
(IA) • 


IA = address of first number 


c^+1 


PZE 
PZE 


(N) * 

(n) ' 


N = number of floating point numbers 
to be outputted 

n - digits for each characteristic 


<X> 2 


PZE (Count) ' 
RETURN ADDRESS 


Count = number of numbers per line 











If the routine is relocated, address 1251*0 will be replaced by 1251.0 + A 
where A represents the amount by which the routine is advanced in memory. 

If machine types EXP TOO HIGH and stops at LC II76.O, touching START will 
cause the routine to proceed to output the next number. 

VI. To output a single fixed point binary number at a binary scale outside 
the range ^ b ^ 77o> use the following commands : 

CLA Loc (binary scale at b 39) 

XAR 

CLA Loc (Fixed Point Number) 

FNM 



-15 00 n 

VII. The closed subroutine and the -17 N n command can each be used for out- 
putting fixed point numbers, if each fixed point number is followed by 
a word containing its binary scale at b 39* The combination of the 
fixed point number and its next word constitute an unnormalized floating 
point number. A brief routine to normalize the numbers must then be used 
before entering AFIT 019. 

Restriction : Negative commands cannot be utilised in the L loop. 

Comparison with AN O36 : The general effect of AFIT 019 is similar to that 
of AN 036. AN 019 is more flexible in that it allows a choice of the 
number of digits to be typed and provides several methods of use. AN 036 
is somewhat faster for small exponents (for an equal number of typed 
digits) AN 019 is much faster for large exponents. 



